home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vol7n1.arc / CAPTURE.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-10-28  |  7.2 KB  |  113 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE capture.COM
  2. 110 OPEN "capture.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  92 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 68485 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    72,     2,    67,    65,    80,    84,    85,   688
  22. 300 DATA     82,    69,    32,    49,    46,    48,    32,    40,   398
  23. 310 DATA     99,    41,    32,    49,    57,    56,    55,    32,   421
  24. 320 DATA     90,   105,   102,   102,    32,    67,   111,   109,   718
  25. 330 DATA    109,   117,   110,   105,    99,    97,   116,   105,   858
  26. 340 DATA    111,   110,   115,    32,    67,   111,    13,    10,   569
  27. 350 DATA     72,   111,   116,   107,   101,   121,    32,   105,   765
  28. 360 DATA    115,    32,    65,    76,    84,    45,    67,    36,   520
  29. 370 DATA     26,    84,   111,   109,    32,    75,   105,   104,   646
  30. 380 DATA    108,   107,   101,   110,    13,    10,    65,   108,   622
  31. 390 DATA    114,   101,    97,   100,   121,    32,    73,   110,   748
  32. 400 DATA    115,   116,    97,   108,   108,   101,   100,    36,   781
  33. 410 DATA     83,    67,    82,    69,    69,    78,    46,    48,   542
  34. 420 DATA     48,    48,     0,     0,     0,     0,     0,     0,    96
  35. 430 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  36. 440 DATA      0,     0,     0,     0,     0,     0,     0,   232,   232
  37. 450 DATA     62,     0,    38,   255,    55,   191,    75,     3,   679
  38. 460 DATA     51,   210,    38,    58,    22,    74,     0,   124,   577
  39. 470 DATA      5,   184,    32,     7,   235,    15,   232,    39,   749
  40. 480 DATA      0,    38,   137,    23,    38,   138,    62,    98,   534
  41. 490 DATA      0,   180,     8,   205,    16,   137,     5,    71,   622
  42. 500 DATA     71,   254,   194,   128,   250,    80,   124,   218,  1319
  43. 510 DATA    254,   198,    50,   210,   128,   254,    25,   124,  1243
  44. 520 DATA    209,   232,     4,     0,    38,   143,     7,   195,   828
  45. 530 DATA     38,   138,    30,    98,     0,    50,   255,   209,   818
  46. 540 DATA    227,   129,   195,    80,     0,   195,    46,   198,  1070
  47. 550 DATA      6,   123,     1,     0,   251,    80,    83,    81,   625
  48. 560 DATA     82,    85,    30,     6,    14,    31,   184,    36,   468
  49. 570 DATA     53,   232,    95,     0,    83,     6,   186,    72,   727
  50. 580 DATA      3,   184,    36,    37,   232,    84,     0,   186,   762
  51. 590 DATA     96,     1,   184,     0,    61,   232,    75,     0,   649
  52. 600 DATA    114,    12,   139,   216,   180,    62,   232,    66,  1021
  53. 610 DATA      0,   232,    72,     0,   235,   233,    61,     2,   835
  54. 620 DATA      0,   117,    34,   186,    96,     1,   185,    32,   651
  55. 630 DATA      0,   180,    60,   232,    45,     0,   114,    13,   644
  56. 640 DATA    139,   216,   186,    75,     3,   185,   160,    15,   979
  57. 650 DATA    180,    64,   232,    30,     0,   180,    62,   232,   980
  58. 660 DATA     25,     0,   232,    31,     0,    31,    90,   184,   593
  59. 670 DATA     36,    37,   232,    14,     0,     7,    31,    93,   450
  60. 680 DATA     90,    89,    91,    88,    46,   198,     6,   124,   732
  61. 690 DATA      1,     0,   195,   156,   250,    46,   255,    30,   933
  62. 700 DATA    119,     1,   251,   195,   187,   105,     1,   254,  1113
  63. 710 DATA      7,   128,    63,    57,   126,    12,   198,     7,   598
  64. 720 DATA     48,    75,   129,   251,   102,     1,   126,     2,   734
  65. 730 DATA    235,   237,   195,   251,    80,   228,    96,    60,  1382
  66. 740 DATA     46,   116,     6,    88,    46,   255,    46,   107,   710
  67. 750 DATA      1,    30,   184,    64,     0,   142,   216,   160,   797
  68. 760 DATA     23,     0,    36,    15,    60,     8,    31,   117,   290
  69. 770 DATA    234,   228,    97,   138,   224,    12,   128,   230,  1291
  70. 780 DATA     97,   138,   196,   235,     0,   230,    97,   250,  1243
  71. 790 DATA    176,    32,   230,    32,   251,    46,   128,    62,   957
  72. 800 DATA    124,     1,     0,   117,    46,    46,   198,     6,   538
  73. 810 DATA    124,     1,     1,    83,    81,    82,    85,    87,   544
  74. 820 DATA     30,     6,    14,    31,   184,    64,     0,   142,   471
  75. 830 DATA    192,   232,   203,   254,   198,     6,   123,     1,  1209
  76. 840 DATA      1,     7,    31,    95,    93,    90,    89,    91,   497
  77. 850 DATA     46,   246,     6,   126,     1,     3,   117,     3,   548
  78. 860 DATA    232,     3,   255,    88,   207,   156,    46,   128,  1115
  79. 870 DATA     14,   126,     1,     2,   157,   156,    46,   255,   757
  80. 880 DATA     30,   111,     1,   156,    46,   128,    38,   126,   636
  81. 890 DATA      1,   253,   157,   251,   202,     2,     0,    46,   912
  82. 900 DATA    128,    62,   123,     1,     1,   116,     5,    46,   482
  83. 910 DATA    255,    46,   115,     1,    46,   128,    62,   125,   778
  84. 920 DATA      1,    10,   116,     8,    46,   128,    62,   125,   496
  85. 930 DATA      1,     8,   117,   235,   232,   199,   254,    46,  1092
  86. 940 DATA    128,    14,   126,     1,     1,   235,   224,   156,   885
  87. 950 DATA     46,   136,    38,   125,     1,    46,   128,    14,   534
  88. 960 DATA    126,     1,     1,    10,   228,   116,    35,   128,   645
  89. 970 DATA    252,    75,   116,    30,   157,   156,    46,   255,  1087
  90. 980 DATA     30,   119,     1,   156,    46,   128,    38,   126,   644
  91. 990 DATA      1,   254,    46,   128,    62,   123,     1,     1,   616
  92. 1000 DATA   117,     3,   232,   145,   254,   157,   251,   202,  1361
  93. 1010 DATA     2,     0,   157,    46,   255,    46,   119,     1,   626
  94. 1020 DATA    50,   192,   207,   186,     3,     1,   180,     9,   828
  95. 1030 DATA   205,    33,   247,    22,     0,     1,    51,   219,   778
  96. 1040 DATA   140,   200,    67,    59,   195,   142,   195,   116,  1114
  97. 1050 DATA    26,   190,     0,     1,   139,   254,   185,    16,   811
  98. 1060 DATA     0,   243,   166,    11,   201,   117,   235,   186,  1159
  99. 1070 DATA    76,     1,   180,     9,   205,    33,   184,     1,   689
  100. 1080 DATA    76,   205,    33,   184,     9,    53,   205,    33,   798
  101. 1090 DATA   137,    30,   107,     1,   140,     6,   109,     1,   531
  102. 1100 DATA   186,    99,     2,   184,     9,    37,   205,    33,   755
  103. 1110 DATA   184,    19,    53,   205,    33,   137,    30,   111,   772
  104. 1120 DATA     1,   140,     6,   113,     1,   186,   205,     2,   654
  105. 1130 DATA   184,    19,    37,   205,    33,   184,    22,    53,   737
  106. 1140 DATA   205,    33,   137,    30,   115,     1,   140,     6,   667
  107. 1150 DATA   117,     1,   186,   231,     2,   184,    22,    37,   780
  108. 1160 DATA   205,    33,   184,    33,    53,   205,    33,   137,   883
  109. 1170 DATA    30,   119,     1,   140,     6,   121,     1,   186,   604
  110. 1180 DATA    15,     3,   184,    33,    37,   205,    33,   161,   671
  111. 1190 DATA    44,     0,   142,   192,   180,    73,   205,    33,   869
  112. 1200 DATA   186,    47,     1,   184,     0,    49,   205,    33,   705
  113.